home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog3.arj / MANCALA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  1.6 KB  |  64 lines
  1. {******************************************************************}
  2. {                                                                  }
  3. {     Mancala                                                      }
  4. {     Turbo Pascal for Windows                                     }
  5. {     Copyright (c) 1991 by Swan Software. All rights reserved.    }
  6. {                                                                  }
  7. {******************************************************************}
  8.  
  9. { mancala.pas -- The game of Mancala }
  10.  
  11. {$D Copyright (c) 1991 by Swan Software. All rights reserved. }
  12.  
  13. {$M 16000, 16000}
  14.  
  15. program Mancala;
  16.  
  17. {$R mancala.res}
  18.  
  19. uses WinTypes, WinProcs, WObjects, UGlobals, Idents, UWindow;
  20.  
  21.  
  22. type
  23.  
  24.   TMancalaApp = object(TApplication)
  25.     procedure InitMainWindow; virtual;
  26.     procedure InitInstance; virtual;
  27.   end;
  28.  
  29.  
  30. {- Initialize TMancalaApp object's window }
  31.  
  32. procedure TMancalaApp.InitMainWindow;
  33. begin
  34.   MainWindow := New(PMancalaWin, Init(nil, app_Name));
  35. end;
  36.  
  37.  
  38. {- Initialize instance of program and load keyboard accelerators }
  39.  
  40. procedure TMancalaApp.InitInstance;
  41. begin
  42.   TApplication.InitInstance;
  43.   if Status = 0 then
  44.     HAccTable := LoadAccelerators(HInstance, PChar(id_Accelerator));
  45. end;
  46.  
  47.  
  48. var
  49.  
  50.   MancalaApp: TMancalaApp;
  51.  
  52.  
  53. begin
  54.   MancalaApp.Init(app_Name);
  55.   MancalaApp.Run;
  56.   MancalaApp.Done;
  57. end.
  58.  
  59.  
  60. {--------------------------------------------------------------
  61.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  62.   Revision 1.00    Date: 7/10/1991
  63. ---------------------------------------------------------------}
  64.